home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
utility
/
ds0455
/
hp500.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-02-20
|
3KB
|
76 lines
{ FREEWARE - HP500 wird benötigt, um die Dokumention von FFormat V2.3
auf HP DeskJet-Druckern auszudrucken.
HP500 funktioniert NUR mit dem HP DeskJet (+, 500, 500C, 550C )
Um die Dokumentaion auszudrucken, bitte dieses Programm aufrufen,
und danach die Dokumentation, wie in der Datei LIESMICH.1ST beschrieben,
ausdrucken.
Wenn Sie die Dokumentation ohne dieses Programm ausdrucken kann es sein,
daß Leerblätter ausgeworfen werden !!!
Dieses Programm darf frei weitergegeben werden...
Autor: Alexander Wolf
Lange Str. 57
D-7500 Karlsruhe 51
Telefon: (0721) 88 81 96
Telefax: (0721) 89 12 34
}
{$I-,G-}
uses crt, printer;
var x : byte;
ch : char;
begin
writeln;
writeln(' Dieses Programm stellt Drucker der HP DeskJet Serie so ein,');
writeln(' daß die FFormat V2.3 Dokumentaion ohne Probleme gedruckt werden kann.');
write (' Weiter (J/N) ??');
repeat
ch:=UpCase(ReadKey);
until (ch in ['J','N']);
writeln(ch,#13,#10);
if (ch = 'N') then begin
writeln(' Programm beendet, ohne den Drucker umzustellen !!');
halt(128);
end;
write(lst,'&k1W'); { Bidirektionale Druckrichtung }
write(lst,'&s1C'); { Zeilenumbruch AUS }
write(lst,'&l26A'); { DIN A4 - Papier }
write(lst,'&l0O'); { Hochformat }
x:=70; write(lst,'&l',x,'P'); { Zeilen / Seite (70) }
write(lst,'&l0L'); { Perforationssprung AUS }
x:=1; write(lst,'&l',x,'E'); { Oberer Rand (1) }
write(lst,''); { Seitenränder löschen }
write(lst,'&k6W'); { Text-Scale-Modus EIN }
write(lst,'(10U'); { Zeichensatz }
write(lst,'(s0P'); { feststehender ZeichenAbstand }
write(lst,'(s0S'); { aufrechte Schrift }
write(lst,'(s0B'); { normale Strichstärke }
write(lst,'(s4101T'); { Schriftart (CG Times) }
write(lst,'(s2Q'); { Druckqualität - Letter }
{ write(lst,'(s1Q'); { Druckqualität - Draft }
if (ioresult <> 0) then begin
writeln(' Fehler !!');
writeln(' Drucker nicht angeschaltet ??');
end else begin
writeln(' Alles OK !!');
writeln(' Sie können jetzt die FFormat V2.3 Dokumentation ausdrucken...');
end;
writeln(#13,#10,' Programm beendet...');
end.